home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / mdboutln.000 / demo.dpr < prev    next >
Text File  |  1996-04-08  |  815b  |  28 lines
  1. program Demo;
  2.  
  3. uses
  4.   Forms,
  5.   Maelstrm,
  6.   Main in 'MAIN.PAS' {frmMainForm},
  7.   About in 'ABOUT.PAS' {frmAboutBox},
  8.   Aeemp in 'AEEMP.PAS' {frmAEEmployee}; {AboutBox}
  9.  
  10. {$R *.RES}
  11. var
  12.   SplashScreen : TSplashScreen;  {in the Splash unit}
  13. begin
  14.   Application.Title := 'Maelstrom TDBOutline Demo';
  15.   Application.CreateForm(TfrmMainForm, frmMainForm);
  16.   Application.CreateForm(TfrmAboutBox, frmAboutBox);
  17.   Application.CreateForm(TfrmAEEmployee, frmAEEmployee);
  18.   SplashScreen := TSplashScreen.Create(Application);
  19.   try
  20.     SplashScreen.Show;
  21.     SplashScreen.Update; {Process any pending Windows paint messages}
  22.   finally               {Make sure the splash screen gets released}
  23. {    SplashScreen.Free;}
  24.   end;
  25.   Application.CreateForm(TSplashScreen, SplashScreen);
  26.   Application.Run;
  27. end.
  28.